home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / Python-1.4 / Source / Amiga / Python_netlib / dosio_init.c < prev    next >
C/C++ Source or Header  |  1994-09-29  |  3KB  |  104 lines
  1. RCS_ID_C="$Id: dosio_init.c,v 4.2 1994/09/29 23:09:02 jraja Exp $";
  2. /*
  3.  *      dosio_init.c - SAS C auto initialization functions for DOSIO
  4.  *
  5.  *      Copyright © 1994 AmiTCP/IP Group, 
  6.  *                       Network Solutions Development Inc.
  7.  *                       All rights reserved.
  8.  */
  9.  
  10. #include <exec/execbase.h>
  11. extern struct ExecBase *SysBase;
  12.  
  13. #include <dos/dos.h>
  14. #include <dos/dosextens.h>
  15.  
  16. #if __SASC
  17. #include <proto/dos.h>
  18. #elif __GNUC__
  19. #include <inline/dos.h>
  20. #else
  21. #include <clib/dos_protos.h>
  22. #endif
  23.  
  24.  
  25. /****** netd.lib/dosio_init *********************************************
  26.  
  27.     NAME
  28.         dosio_init - (std) io macros to dos.library V37 or newer
  29.  
  30.     SYNOPSIS
  31.         long _STI_500_dosio_init(void)
  32.  
  33.     FUNCTION
  34.         This function initializes the file table used by the stdio
  35.         look-a-like macros defined in <netinclude:stdio.h>.
  36.  
  37.         These macros are taken in to use by defining the symbol
  38.         `USE_DOSIO' before including any include files.  When this is
  39.         done, the normal stdio prototypes are replaced with macros,
  40.         which call the corresponding dos.library functions.  The
  41.         netd.lib provides the initialization function mentioned above
  42.         and the functions VSPrintf(), SPrintf(), VCSPrintf() and
  43.         CSPrintf(), which are not found from the dos.library.
  44.  
  45.         The stdio macros provided are suitable for stdin, stdout and
  46.         stderr usage. No file opening function (fopen()) is provided,
  47.         so the use is quite limited.
  48.  
  49.         The netd.lib version of the net.lib is compiled with this
  50.         USE_DOSIO, so you will want to use that instead of the
  51.         net.lib to make your executable smaller if your own program
  52.         does not use stdio of the C runtime library.
  53.  
  54.     NOTES
  55.         The stdio macros rely on dos.library 37 or newer being present.
  56.  
  57.         The autoinitialization and autotermination functions are features
  58.         specific to the SAS C6.  However, these functions can be used with
  59.         other (ANSI) C compilers, too. Example follows:
  60.  
  61.         \* at start of main() *\
  62.  
  63.         if (_STI_500_dosio_init() != 0)
  64.        exit(20);
  65.  
  66.     BUGS
  67.         The same autoinitialization won't work for both SAS C 6.3 and SAS C
  68.         6.50 or latter.  Only way to terminate an initialization function is
  69.         by exit() call with SAS C 6.3 binary.  If an autoinitialization
  70.         function is terminated by exit() call with SAS C 6.50 binary, the
  71.         autotermination functions won't be called.  Due this braindamage
  72.         the libraries must be separately compiled for each compiler version.
  73.  
  74.     SEE ALSO
  75.  
  76.  
  77. *****************************************************************************
  78. */
  79.  
  80. BPTR __dosio_files[3];
  81.  
  82. /*
  83.  * Using __stdargs prevents creation of register arguments entry point.
  84.  * If both stack args and reg. args entry points are created, this
  85.  * function is called _twice_, which is not wanted.
  86.  *
  87.  * The number 500 in the function names is the priority assigned to
  88.  * stdio autoinitialization functions by SAS/C 6.50.
  89.  */
  90. long __stdargs
  91. _STI_500_dosio_init(void)
  92. {
  93.   struct Process *p = (struct Process *)SysBase->ThisTask;
  94.  
  95.   __dosio_files[0] = p->pr_CIS;    /* stdin */
  96.   __dosio_files[1] = p->pr_COS;    /* stdout */
  97.   __dosio_files[2] = p->pr_CES;    /* stderr */
  98.  
  99.   if (__dosio_files[2] == 0)
  100.     __dosio_files[2] = __dosio_files[1];
  101.  
  102.   return 0;
  103. }
  104.